snippet Section 
######## $1 ########
$0
endsnippet 

snippet Func "custom function" b
$1 <- function($2){
	$3
	return()
}
endsnippet

snippet for "for loop" b
for ($1) {
	$2
}
endsnippet

snippet if "if statement" b
if ($1) {
	$2
}
endsnippet
